home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / kidplay / midplayg.bas < prev    next >
BASIC Source File  |  1995-05-08  |  3KB  |  81 lines
  1. '*********************************************
  2.  
  3. ' Vbasic declarations for Multimedia calls
  4.  
  5. '*********************************************
  6.  
  7. 'DWORD mciSendString(lpstrCoMMand,lpstrReturnString,wReturnLength,hCallback)
  8.  
  9. Declare Function mciSendString Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String, ByVal lpReturnString As String, ByVal WReturnLength As Integer, ByVal hCallback As Integer) As Long
  10.  
  11. 'BOOL mciExecute(lpstrCoMMand)
  12.  
  13. Declare Function mciExecute Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String) As Integer
  14.  
  15. 'void MessageBeep(wAlert)
  16.  
  17. Declare Function MessageBeep Lib "c:\mwin\system\MMsystem" (ByVal Alert As Integer)
  18.  
  19. 'WORD mciGetErrorString(dwError, lpstrBuffer, wLength)
  20.  
  21. Declare Function mciGetErrorString Lib "c:\mwin\system\MMsystem" (ByVal dwError As Long, ByVal lpBuffer As String, ByVal WReturnLength As Integer) As Integer
  22.  
  23. ' NOTE:  The following calls are unsupported, at least om my ProAudio Spectrum board...
  24.  
  25. ' WORD midiOutGetVolume(wDeviceID, lpdwVolume)
  26.  
  27. Declare Function midiOutGetVolume Lib "c:\mwin\system\MMsystem" (ByVal DeviceID As Integer, ByVal Volume As Long) As Integer
  28.  
  29. ' WORD midiOutSetVolume(wDeviceID, dwVolume)
  30.  
  31. Declare Function midiOutSetVolume Lib "c:\mwin\system\MMsystem" (ByVal DeviceID As Integer, ByVal Volume As Long) As Integer
  32.  
  33. '****************************************
  34.  
  35. ' Constants for MIDI Player
  36.  
  37. '****************************************
  38.  
  39. ' MsgBox parameters
  40. Global Const MB_OK = 0                 ' OK button only
  41. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  42. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  43. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  44. Global Const MB_YESNO = 4              ' Yes and No buttons
  45. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  46.  
  47. Global Const MB_ICONSTOP = 16          ' Critical message
  48. Global Const MB_ICONQUESTION = 32      ' Warning query
  49. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  50. Global Const MB_ICONINFORMATION = 64   ' Information message
  51.  
  52.  
  53. ' MsgBox return values
  54. Global Const IDOK = 1                  ' OK button pressed
  55. Global Const IDCANCEL = 2              ' Cancel button pressed
  56. Global Const IDABORT = 3               ' Abort button pressed
  57. Global Const IDRETRY = 4               ' Retry button pressed
  58. Global Const IDIGNORE = 5              ' Ignore button pressed
  59. Global Const IDYES = 6                 ' Yes button pressed
  60. Global Const IDNO = 7                  ' No button pressed
  61.  
  62. Global Const FALSE = 0
  63. Global Const TRUE = -1
  64.  
  65. Global Const KEY_RETURN = &HD
  66. Global Const MODAL = 1
  67.  
  68. Global Const INSERT = 1    ' for line editing...
  69. Global Const ALTER = 2
  70.  
  71. Global Const MIDIOUT = 0
  72. Global Const MIDISYNTH = 1
  73. Global Const MIDIMAPPER = -1
  74.  
  75. Global CancelOp As Integer      ' If user changed mind...
  76. Global EditFunction As Integer
  77. Global NeedToSave As Integer    ' If file has changed...
  78.  
  79. Global PlayDone As Integer
  80.  
  81.